#!/usr/bin/env perl

use strict;
use utf8;

my $option = shift @ARGV;

my @list = @ARGV;

if($option eq 'true'){
    @list = sort {$a <=> $b} @list;
}elsif($option eq 'false'){
    @list = sort {$b <=> $a} @list;
}

print "@list\n";


